home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / AZTECW.DIR / 01709_Script_Entertainment < prev    next >
Text File  |  1995-09-12  |  8KB  |  319 lines
  1. global gQuest, gBeenClicked
  2.  
  3. on AEntertainRollover1
  4.   set gBeenClicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(9) or rollover(2) then
  7.       repeat while rollover(9) or rollover(2)
  8.         AztecCursor
  9.         puppetsprite 12, true
  10.         set the locH of sprite 12 to 419
  11.         set the locV of sprite 12 to 220
  12.         updatestage
  13.         if the mousedown then
  14.           set GBeenClicked = 1
  15.         else
  16.           if gBeenClicked = 1 then
  17.             repeat while gBeenClicked = 1
  18.               AnimateFire
  19.             end repeat
  20.           end if
  21.         end if
  22.       end repeat
  23.       set the locH of sprite 12 to 919
  24.       puppetsprite 12, false
  25.       updatestage
  26.     else
  27.       if the mousecast = the castnum of sprite 3 then
  28.         repeat while the mousecast = the castnum of sprite 3
  29.           AztecCursor
  30.           if the mousedown then
  31.             set GBeenClicked = 1
  32.           else
  33.             if gBeenClicked = 1 then
  34.               repeat while gBeenClicked = 1
  35.                 AnimateLoopFast 3, 871, 5, 0, 3
  36.               end repeat
  37.             end if
  38.           end if
  39.         end repeat
  40.         ArrowCursor
  41.       else
  42.         if rollover(13) then
  43.           ArrowCursor
  44.           repeat while rollover(13)
  45.             set the locH of sprite 14 to 439
  46.             set the locV of sprite 14 to 352
  47.             updatestage
  48.           end repeat
  49.           set the locH of sprite 14 to 939
  50.           updatestage
  51.         else
  52.           if rollover(10) then
  53.             ArrowCursor
  54.             repeat while rollover(10)
  55.               set the locH of sprite 11 to 418
  56.               set the locV of sprite 11 to 281
  57.               updatestage
  58.             end repeat
  59.           else
  60.             if rollover(40) then
  61.               HandCursor
  62.             else
  63.               if rollover(41) then
  64.                 HandCursor
  65.               else
  66.                 if rollover(42) then
  67.                   HandCursor
  68.                 else
  69.                   ArrowCursor
  70.                 end if
  71.               end if
  72.             end if
  73.           end if
  74.         end if
  75.       end if
  76.     end if
  77.   end if
  78.   RandomQuestion(gQuest)
  79. end
  80.  
  81. on AEntertainRollover2
  82.   set gBeenClicked = 0
  83.   if (not(CheckClickedStatus(gQuest))) then
  84.     if rollover(9) or the mousecast = the castnum of sprite 3 then
  85.       repeat while rollover(9) or the mousecast = the castnum of sprite 3
  86.         AztecCursor
  87.         puppetsprite 13, true
  88.         set the locH of sprite 13 to 154
  89.         set the locV of sprite 13 to 221
  90.         updatestage
  91.         if the mousedown then
  92.           set GBeenClicked = 1
  93.         else
  94.           if gBeenClicked = 1 then
  95.             repeat while gBeenClicked = 1
  96.               AnimateEagleFly
  97.             end repeat
  98.           end if
  99.         end if
  100.       end repeat
  101.       ArrowCursor
  102.       set the locH of sprite 13 to 954
  103.       puppetsprite 13, false
  104.       updatestage
  105.     else
  106.       if the mousecast = the castnum of sprite 10 then
  107.         repeat while the mousecast = the castnum of sprite 10
  108.           AztecCursor
  109.           puppetsprite 11, true
  110.           set the locH of sprite 11 to 384
  111.           set the locV of sprite 11 to 231
  112.           updatestage
  113.           if the mousedown then
  114.             set GBeenClicked = 1
  115.           else
  116.             if gBeenClicked = 1 then
  117.               repeat while gBeenClicked = 1
  118.                 AnimateLoopFast 10, 888, 11, "SA280600.AIF", 1
  119.               end repeat
  120.             end if
  121.           end if
  122.         end repeat
  123.         set the locH of sprite 11 to 984
  124.         puppetsprite 11, false
  125.         updatestage
  126.         ArrowCursor
  127.       else
  128.         if rollover(39) then
  129.           HandCursor
  130.         else
  131.           if rollover(41) then
  132.             HandCursor
  133.           else
  134.             if rollover(42) then
  135.               HandCursor
  136.             else
  137.               ArrowCursor
  138.             end if
  139.           end if
  140.         end if
  141.       end if
  142.     end if
  143.   end if
  144.   RandomQuestion(gQuest)
  145. end
  146.  
  147.  
  148. on AnimateFire
  149.   ArrowCursor
  150.   set gAnimationcast1 = 860
  151.   set gAnimationcast2 = 865
  152.   set count = 0
  153.   puppetsound "SA280401.AIF"
  154.   repeat while count < 8 and (the mouseUp)
  155.     set the castnum of sprite 9 = gAnimationcast1 + 1
  156.     set the castnum of sprite 2 = gAnimationcast2 + 1
  157.     updatestage
  158.     wait .1
  159.     if (the mousedown) then 
  160.       exit repeat
  161.     end if
  162.     
  163.     set the castnum of sprite 9 = gAnimationcast1 + 2
  164.     set the castnum of sprite 2 = gAnimationcast2 + 2
  165.     updatestage
  166.     wait .1
  167.     if (the mousedown) then 
  168.       exit repeat
  169.     end if
  170.     
  171.     set the castnum of sprite 9 = gAnimationcast1 + 3
  172.     set the castnum of sprite 2 = gAnimationcast2 + 3
  173.     updatestage
  174.     wait .1
  175.     if (the mousedown) then 
  176.       exit repeat
  177.     end if
  178.     
  179.     set the castnum of sprite 9 = gAnimationcast1 + 4
  180.     set the castnum of sprite 2 = gAnimationcast2 + 4
  181.     updatestage
  182.     wait .1
  183.     if (the mousedown) then 
  184.       exit repeat
  185.     end if
  186.     
  187.     set count = count + 1
  188.   end repeat
  189.   set the castnum of sprite 9 = gAnimationcast1 
  190.   set the castnum of sprite 2 = gAnimationcast2
  191.   updatestage
  192.   sound fadeout 1, 2*60
  193.   set gBeenClicked = 0
  194. end
  195.  
  196. on AnimateEagleFly
  197.   ArrowCursor
  198.   set gAnimationcast1 = 883
  199.   set gAnimationcast2 = 880
  200.   set count = 0
  201.   puppetsound "SA280500.AIF"
  202.   updatestage
  203.   wait .5
  204.   repeat while soundBusy(1) and (the mouseUp)
  205.     set the castnum of sprite 3 = gAnimationcast1 + 1
  206.     set the castnum of sprite 9 = gAnimationcast2 + 1
  207.     updatestage
  208.     wait .1
  209.     if (the mousedown) then 
  210.       exit repeat
  211.     end if
  212.     
  213.     set the castnum of sprite 9 = gAnimationcast2 + 2
  214.     updatestage
  215.     wait .1
  216.     if (the mousedown) then 
  217.       exit repeat
  218.     end if
  219.     
  220.     set the castnum of sprite 3 = gAnimationcast1 + 2
  221.     set the castnum of sprite 9 = gAnimationcast2 + 1
  222.     updatestage
  223.     wait .1
  224.     if (the mousedown) then 
  225.       exit repeat
  226.     end if
  227.     
  228.     set the castnum of sprite 9 = gAnimationcast2
  229.     updatestage
  230.     wait .1
  231.     if (the mousedown) then 
  232.       exit repeat
  233.     end if
  234.     
  235.     set the castnum of sprite 3 = gAnimationcast1 + 3
  236.     set the castnum of sprite 9 = gAnimationcast2 + 1
  237.     updatestage
  238.     wait .1
  239.     if (the mousedown) then 
  240.       exit repeat
  241.     end if
  242.     
  243.     set the castnum of sprite 9 = gAnimationcast2 + 2
  244.     updatestage
  245.     wait .1
  246.     if (the mousedown) then 
  247.       exit repeat
  248.     end if
  249.     
  250.     set the castnum of sprite 3 = gAnimationcast1 + 4
  251.     set the castnum of sprite 9 = gAnimationcast2 + 1
  252.     updatestage
  253.     wait .1
  254.     if (the mousedown) then 
  255.       exit repeat
  256.     end if
  257.     
  258.     set the castnum of sprite 9 = gAnimationcast2 
  259.     updatestage
  260.     wait .1
  261.     if (the mousedown) then 
  262.       exit repeat
  263.     end if
  264.     
  265.     set the castnum of sprite 3 = gAnimationcast1 + 3
  266.     set the castnum of sprite 9 = gAnimationcast2 + 1
  267.     updatestage
  268.     wait .1
  269.     if (the mousedown) then 
  270.       exit repeat
  271.     end if
  272.     
  273.     set the castnum of sprite 9 = gAnimationcast2 + 2
  274.     updatestage
  275.     wait .1
  276.     if (the mousedown) then 
  277.       exit repeat
  278.     end if
  279.     
  280.     set the castnum of sprite 3 = gAnimationcast1 + 2
  281.     set the castnum of sprite 9 = gAnimationcast2 + 1
  282.     updatestage
  283.     wait .1
  284.     if (the mousedown) then 
  285.       exit repeat
  286.     end if
  287.     
  288.     set the castnum of sprite 9 = gAnimationcast2 + 1
  289.     updatestage
  290.     wait .1
  291.     if (the mousedown) then 
  292.       exit repeat
  293.     end if
  294.     
  295.     set the castnum of sprite 3 = gAnimationcast1 + 1
  296.     set the castnum of sprite 9 = gAnimationcast2 + 2
  297.     updatestage
  298.     wait .1
  299.     if (the mousedown) then 
  300.       exit repeat
  301.     end if
  302.     
  303.     set the castnum of sprite 3 = gAnimationcast1
  304.     set the castnum of sprite 9 = gAnimationcast2
  305.     updatestage
  306.     wait .1
  307.     if (the mousedown) then 
  308.       exit repeat
  309.     end if
  310.     
  311.     set count = count + 1
  312.   end repeat
  313.   set the castnum of sprite 3 = gAnimationcast1 
  314.   set the castnum of sprite 9 = gAnimationcast2
  315.   updatestage
  316.   sound fadeout 1, 2*60
  317.   set gBeenClicked = 0
  318. end
  319.